home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nautilus 1994 December
/
Nautilus CD Magazine Volume 4-12 December 1994 Windows Edition.mdf
/
setup
/
nautcd
/
browse.vwr
(
.txt
)
next >
Wrap
Asymetrix ToolBook File
|
1994-10-09
|
38KB
|
515 lines
wwwwwwp
wwwwwwp
wwwwwwwwwwwwwwwwwwwwwwwwww
wwwwww
wwwww
wwwww
wwwww
wwwww
wwwwwwwwwwwwwwwwwwwwwwwwwwww
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
Browse Viewer
Browse
D:\_nautcd\extras\browse.avi
INFO","browseMovieSize","
wwwwwww
wwwwwww
Browse
D:\_nautcd\extras\browse.avi
INFO","browseMovieSize","
System
Arial
BW Times
Arial
HxuJlxA
Arial
BW TIMES
browseViewer
NautilusCD Browse
page "Browse Viewer"
closeWindow
ptLastBrowsePos
moved
Window
untranslateWindowMessage 0x0112
moved
4point ptLastBrowsePos
ptLastBrowsePos
shown
closeWindow
untranslateWindowMessage 0x0112
moved
4point ptLastBrowsePos
shown
4logical bBrowseInit
ncd256
NautilusCD
NautCD
CDBSE&File
&Open... Ctrl+O
&Save Ctrl+S
Save &As...
saveas
&Import...
import
&Export...
export
Print Set&up...
printsetup
&Print Pages... Ctrl+P
printpages
Prin&t Report...
printreport
Send &Mail...
sendmail
&Run...
E&xit Alt+F4
&Edit
&Undo Ctrl+Z
Cu&t Ctrl+X
&Copy Ctrl+C
&Paste Ctrl+V
paste
C&lear Del
clear
Select &All Shift+F9
selectall
Select Pa&ge Shift+F12
selectpage
&Size to Page F11
sizetopage
F&ind... F5
Re&place...
replace
Aut&hor F3
author
&Text
&Character... F6
character
&Paragraph... F7
paragraph
&Regular Ctrl+Space
regular
&Bold Ctrl+B
&Italic Ctrl+I
italic
&Underline Ctrl+U
underline
Stri&keout Ctrl+K
strikeout
Superscrip&t/Subscript
superscriptSubscript
&Normal Script
normalscript
Su&bscript Ctrl+L
subscript
Su&perscript Ctrl+Shift+L
superscript
&Show Hotwords F9
showhotwords
&Page
&Next Alt+Right
&Previous Alt+Left
previous
&First Alt+Up
first
&Last Alt+Down
&Back Shift+F2
&History... Ctrl+F2
history
N&ew Page Ctrl+N
newpage
&Help
&Contents F1
contents
Status &Bar F12
statusbar
browseViewer
browseViewer
Browse Viewer
enterPage
Pause
pauseBrowse
buttonClick
playBrowse
buttonClick
goToPage
y6browseViewer
szBrowseClip
pauseBrowse
dwBrowseMovieLength
NegoToPage
W(setBrowseBar
playing
buttonClick
Go to page
slideBox
slider
rSide
slideBar
buttonClick
slideBar
myEnabled
StepBack
buttonClick
buttonStillDown
StepForward
buttonClick
buttonStillDown
browseViewerStage
goToPage
buttonClick
42,42,2442,1842
mediaBounds
browseViewerStage
goToPage
buttonClick
buttonClick
B"goToPage"
42,42,2442,1842
mediaBounds
enterPage
"" -- *** simple trap *** --
dwBrowseDelta,dwBrowseSeekTo,dwLastX
szBrowseClip
4logical bBrowsePlaying
Q <>
D = (mmStatus
clip
browseViewer() = "
KillTimer(windowHandle
targetWindow,43)
B"play"
= mmPosition
wseMovieLength,dwBrowseTravel,
b(rSide(
lSide(
B"stepback") - width(
j(dwBrowseMovieLength, \
b(0,((
)) /
mmSeek
wait
mmNotify
playBrowse mediaLength,ptMediaSize
szBrowseCmdString,szBrowseClip
dwBrowseMovieLength
gwBrowseTimer
4logical bBrowseInit,bFirstBrowse
4point ptLastBrowsePos
gwPageNum
$BrowseMovieSize
]SysSuspend,bSysMediaSuspend
= 43
ptBrowseMovieSize = discIniString("DISC INFO","browseMovieSize","160,120",16)
initBrowseViewer
initBrowseSlider
bSysSuspend =
= sysMediaSuspend
","",256)
"No" && appName() && "Disc found
volume" && romDrive()
closeBrowse
o= default
mmSource
clip
"Could
xinitialize
mmEndPoint
mmOpen
translateWindowMessage
windowHandle
"browseViewer"
on 0x0112
browseCommand
on 0x0005
noSize
mmSeek
xmmVisible
mmShow
stage "browseViewerStage"
setBrowseBar
B"goToPage"
mmPlay
y notify
SetTimer(
targetWindow,
,1000,0)
ShowWindow(
BringWindowToTop(
pauseBrowse
mmPause
,dwBrowseInterval
dwCurPos
= mmPosition
Z >= 1
mmStep
key =
;keyDownArrow
mmIsOpen
mmClose
isOpen
KillTimer(
defaultPosition
O -- *** see note
)the
*** --
-- ***
handler *** --
mmNotify mediaRef,cmd,result
szViewer,szPage,szStage
% = "
o = "successful") --
= "superceded")
windowhandle
cmd =
ptSize
szSysInfo[]
gwShortName
BkgndSize
Zstack stStageBounds
gwOffset
,szPageName
= 60
- = "
] && "
statusBar
ptBkgndSize =
mediaSize
Hheight(
") +
-- SEE NOTE BELOW ABOUT objTop HANDLERS
lSide
B"slideBar"
rSide(
B"stepback"
B"stepforward"
(width(
@) +
"slideBox"
) - \
") +
B"stepForward") -
on 0x0113
parentWindow
= "0,0"
screenResolution()
-- ***
a persistent property
saved
*** --
-- *** "
O", but that gives
rather annoying
centering itself *** --
-- ***
restored
a minimized state, so...
*** --
,dwBrowseStart,dwBrowseTravel
linkDLL user
/ 16)
"slider") -
,dwTraveled
B"slidebar"
newLSide
-- N.B.
LIS AN O/S KEYWORD, HENCE
INSTEAD
newTop
newRSide
newBot
newWidth
newHeight
myPath
szTemp
* = "\"
hwnd,wMsg,wParam,lParamLo,lParamHi
= 0xF060
SysInfo
*+"+"+
dwBrowseSeekTo
KillTimer
dwBrowseDelta
y6browseViewer
szBrowseClip
dwLastX
bBrowsePlaying
Playing
buttonDown
+&,!>
+&,!Y
+&,!>
+&,!Y
+&,!Y
+&,!Y
dwBrowseTravel
dwBrowseSeekTo
dwBrowseDelta
y6browseViewer
szBrowseClip
dwLastX
rSide
dwBrowseMovieLength
width
lSide
stepback
buttonStillDown
mmNotify
.&+ +E
w, #?
w, #?
W(setBrowseBar
initBrowseSlider
browseViewerStage
Could not initialize Browse Movie
closeBrowse
browseViewer
DISC INFO
qtromDrive
szBrowseClip
noSize
160,120
browseMovieSize
Disc found in volume
dwBrowseMovieLength
Browse Viewer
bBrowseInit
goToPage
BringWindowToTop
bFirstBrowse
Browse
browseCommand
ShowWindow
xSetTimer
browseMovie
default
1appName
initBrowseViewer
=PdiscIniString
wBrowseTimer
playBrowse
szBrowseClip
pauseBrowse
+&,!"
browseViewerStage
szBrowseClip
browseViewer
dwBrowseMovieLength
W(setBrowseBar
dwBrowseInterval
keyDown
KillTimer
szBrowseClip
center
browseViewer
bBrowseInit
wBrowseTimer
closeBrowse
browseViewerStage
KillTimer
wPageNum
goToPage
browseViewer
successful
mmPause
bBrowseInit
mmClose
W(setBrowseBar
mmPlay
Browse Viewer
wBrowseTimer
mmNotify
<+U!!
.&, 7
.&, 7
lSide
lSide
setBrowseBar
browseViewerStage
szSysInfo
stepforward
pause
goToPage
slideBar
rSide
browseViewer
slideBox
width
objTop
width
screenResolution
Browse
statusBar
objTop
wShortName
height
stepForward
Browse Viewer
ptLastBrowsePos
stepback
initBrowseViewer
+&,!J
rSide
browseViewer
dwBrowseStart
dwBrowseMovieLength
slider
width
slideBar
dwBrowseTravel
SetTimer
KillTimer
dwBrowseInterval
initBrowseSlider
+&,!Y
+&,!Y
lSide
szBrowseClip
browseViewer
dwBrowseStart
dwBrowseMovieLength
slidebar
dwBrowseTravel
setBrowseBar
lSide
lSide
objTop
objTop
rSide
width
rSide
height
width
width
height
height
<+U!!
statusBar
enterBook
myPath
browseViewer
closeBrowse
IbrowseCommand
browseCommand
noSize
browseViewer
closeBrowse
IbrowseCommand
browseCommand
noSize
Browse
D:\_nautcd\extras\browse.avi
INFO","browseMovieSize","